home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok31 / environment / intuisup.def < prev    next >
Text File  |  1993-11-04  |  924b  |  31 lines

  1. DEFINITION MODULE IntuiSup;
  2.  
  3. FROM SYSTEM    IMPORT    ADDRESS;
  4. FROM Intuition    IMPORT    Gadget, IntuiText, Border, StringInfo, ActivationFlags, 
  5.             ActivationFlagSet, IDCMPFlagSet, WindowFlagSet,
  6.             WindowPtr, ScreenFlagSet;
  7.  
  8.  
  9. PROCEDURE InitBorder (VAR Bord : Border; xyData, next : ADDRESS);
  10.  
  11. PROCEDURE InitStringInfo (VAR Info : StringInfo; 
  12.               VAR buf, unbuf : ARRAY OF CHAR);
  13.  
  14. PROCEDURE InitIText (VAR IText : IntuiText; x,y : INTEGER; text : ADDRESS);
  15.  
  16. PROCEDURE CreateGadget (VAR Gad : Gadget; x,y,w,h,ID : INTEGER; Type:CARDINAL;
  17.              next, Info, Bord, Text : ADDRESS; 
  18.              Activ : ActivationFlagSet);
  19.  
  20. PROCEDURE CreateWindow(x,y,w,h : INTEGER; if: IDCMPFlagSet; wf: WindowFlagSet;
  21.                        gad,scr,tit : ADDRESS; typ : ScreenFlagSet) : WindowPtr;
  22.  
  23. PROCEDURE IDCMPOn (window : WindowPtr; flags : IDCMPFlagSet);
  24.  
  25. PROCEDURE IDCMPOff (window : WindowPtr);
  26.  
  27. PROCEDURE ActivWindow () : WindowPtr;
  28.  
  29.  
  30. END IntuiSup.Def
  31.